SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS OFF
GO


CREATE PROC [dbo].[SP_TXMVTO_CNTB_D03]                            
/*-------------------------------------------------------------------*/                          
/*----- Empresa           : OFISIS S.A.                          ----*/                          
/*----- Cliente           : OFISIS S.A.                          ----*/                          
/*----- Sistema           : Contabilidad                         ----*/                          
/*----- Modulo            : Empresa                              ----*/                          
/*----- Programa          : CASO ANULACION DE ASTO ELIMINA LA LINEA DE DIF DE CAMBI0----*/                          
/*----- Nombre            : SP_TXMVTO_CNTB_D03                   ----*/                          
/*----- Script            : TXMVTO_CNTB                          ----*/                          
/*----- Desarrollado por  : PDGV                                 ----*/                          
/*----- Fecha             :                                      ----*/                          
/*----- Base de Datos     : MS SQL Server                        ----*/                          
/*----- Version BD        : 8.0                                  ----*/                          
/*-------------------------------------------------------------------*/                          
/*-------------------------------------------------------------------*/                          
/*----- Drop proc SP_TXMVTO_CNTB_D03                             ----*/                          
/*----- Grant all on SP_TXMVTO_CNTB_D03 to PUBLIC                ----*/                          
/*----- EXEC SP_TXMVTO_CNTB_D03  '01',1,'001','002',2004, 10, '0000000041' ----*/                          
/*-------------------------------------------------------------------*/                          
@ISCO_EMPR           TD_VC_002,                          
@INNU_CNTB_EMPR      TD_IN_001_CONT,                          
@ISCO_UNID_CNTB      TD_VC_003,                          
@ISCO_OPRC_CNTB      TD_VC_003,                          
@INNU_ANNO           TD_IN_004_ANNO,    
@INNU_MESE           TD_IN_002_MESE,                          
@ISNU_ASTO           TD_VC_010                          
                            
As                          
                          
Declare                           
 @VSID_DIFE          TD_VC_003,                     
 @VSCO_OPRC_CANC     TD_VC_003,
 @VSST_ASIE_DFCA     TD_VC_003

 Select @VSST_ASIE_DFCA = IsNull(ST_ASIE_DFCA, '') 
 From TMPARA_CONT Where CO_EMPR = @ISCO_EMPR 

 If @VSST_ASIE_DFCA = 'ORI'
 Begin 
 Delete From TXMVTO_CNTB       
 Where CO_EMPR = @ISCO_EMPR       
 And NU_CNTB_EMPR = @INNU_CNTB_EMPR
 And CO_UNID_CNTB = @ISCO_UNID_CNTB       
 And CO_OPRC_CNTB = @ISCO_OPRC_CNTB
 And NU_ANNO = @INNU_ANNO      
 And NU_MESE = @INNU_MESE      
 And NU_ASTO = @ISNU_ASTO      
 And ST_DIFE_CAMB = 'S'        
 End 
  
-- ELIMINA ASTOS DE DIF DE CAMBIO CASO ST_ASIE_DFCA ES 'COP' , EN EL CASO 'ORI' HACE EL DELETE DEL VOUCHER.
 If @VSST_ASIE_DFCA = 'COP'
 Begin 
 Select @VSID_DIFE = IsNull(ID_DIFE, '')
 From TTCNTB_EMPR  
 Where CO_EMPR = @ISCO_EMPR 
 And NU_CNTB_EMPR = @INNU_CNTB_EMPR 

 Select @VSCO_OPRC_CANC = IsNull(CO_OPRC_CNTB, '')
 From TTIDEN_OPER
 Where CO_EMPR = @ISCO_EMPR 
 And NU_CNTB_EMPR = @INNU_CNTB_EMPR
 And ID_OPRC = @VSID_DIFE 

 Delete From TXMVTO_CNTB       
 Where CO_EMPR = @ISCO_EMPR       
 And NU_CNTB_EMPR = @INNU_CNTB_EMPR       
 And CO_OPRC_CNTB = @VSCO_OPRC_CANC
 And NU_ANNO = @INNU_ANNO      
 And NU_MESE = @INNU_MESE      
 And CO_UNID_ORIG = @ISCO_UNID_CNTB      
 And CO_OPRC_ORIG = @ISCO_OPRC_CNTB      
 And NU_ASTO_ORIG = @ISNU_ASTO      
 And ST_DIFE_CAMB = 'S'            
End 
                    
Return                          
/*-------------------------------- Fin -----------------------------*/                          
                    
                  
                
              
            










GO
